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EDTSCHMINIT = change mode initialize hase Sep-1984 VAX-11 Bliss-32 V4. 
° 14- = 8ep-1984 99: g}: 99 DISK xSVMGR STER: CEDT OS ACICHMINIT. BLI; ‘a 
Roba eStetiniaty ¢ Sheree Mode initiating’ = de initializ 
' Change mode initialize 
SDENT = 'v04-000' . ! File: CHMINIT.BLI Edit: JBS1003 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
* 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
it ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS” SOFTWARE OR “ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it TRANSFERRED. * 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ® 
® 
® 
*® 
® 
* 
* 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! 

3 

3 '++ 

; } FACILITY: EDT -- The DEC Standard Editor 

3 ABSTRACT: 

3 ! This module performs initialization when change mode 
if } is entered. 
st 4 ENVIRONMENT: Runs at any access mode - AST reentrant 
9041 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
0045 MODIFIED BY: 
0045 i 1-001 - Original. DJS 04-Feb-1981. This module was created by 
0046 ! extracti ng the routine EDTS$INIT_CHM from module CHANGE. YBLI. 
0047 ! 1-002 - Regularize headers. JBS 02-Mar-198 
Boe 1-003 - Revise typeahead logic. JBS 02-Sep-1982 
0050 1 
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EDTSCHMINIT EDTSCHMINIT = change mode initialize 16-Sep-1984 00:01: VAX-11 Bliss-32 V4.0-74 Page | 
Oe. 000 Declarations ° 12-28-1382 99:93:90 TEC SVMGMASTERCEDT Sac SCHMINIT BUI: 1 ° (25 
: 3 a J} ¥SBTTL ‘Declarations’ | 
4 4 0 y 1 ! TABLE OF CONTENTS: 
; 5 0054 1! | 
3 § 0055 «(1 
3 5 $038 1 REQUIRE ‘EDTSRC: TRAROUNAM'; 
a a 495 1 
:; #59 0496 1 FORWARD ROUTINE 
3 oy oh 44 : EDTSSINIT_CHM : NOVALUE; ! Initialization on entering change mode | 
: 6 0499 1! | 
BS 0500 1 ! INCLUDE FILES: 
; 3 «664 0501 1! 
; & babe 1 
3 66 050 1 REQUIRE ‘EDTSRC:EDTREQ'; 
ce OF 0638 1 
; 68 0639 1! 
3 69 0640 1 ! MACROS: 
; 70 0641 1! 
3 71 pete 1! NONE 
; 72 064 1 2 
3 73 0644 1 ! EQUATED SYMBOLS: 
3 74 0645 1! 
3 75 0646 1! NONE 
3 76 0647 1! 
: 77 0648 1 ! OWN STORAGE: 
: 78 0649 1! 
3 79 0650 1! NONE 
: 80 0651 1 | 
; 81 0652 1 ! EXTERNAL REFERENCES: 
i ae 0653 1! 
; 83 0654 1! In the routine 
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EDTSCHMINIT EDTSCHMINIT = change mode initialize 1hese -1984 00:01: VAX-11 Bliss-32 V4.0-74 Page 3. 
42000 EDTSSINIT_CHM = change mode initialize 12-308 1 abe 09:93:99 DIEKSVMEHASTER-CEDT SRCTCHMINIT.BLI:1 (3) | 
: 8? 063? } ZSBTTL "EDTSSINIT_CHM = change mode initialize’ | 
; 7 bees 1 GLOBAL ROUTINE EDTSSINIT_CHM ! Change mode initialize 
; 8 b628 1 : NOVALUE = 
; 0659 1 
; 90 0660 1 !++ 
: 4! bees : FUNCTIONAL DESCRIPTION: 
: a2 Beez ! } This is the initialization routine called when change mode is entered. 
3 g2 poe? | } The following are done: 
Reb bee? 1! The current Line is fetched into the Line buffer and the cursor pointer | 
; 0668 1! is initialized. 
; 299 0669 1! 
: 100 0670 1! The exit flag is cleared. 
101 0671 1 | | 
3 106 0672 1! The vertical flag is cleared. 
; 10 0675 1! 
: 104 0674 1! The type ahead counter is cleared. | 
: 105 0675 1! 
; 106 0676 1 ! FORMAL PARAMETERS: 
3; 107 0677 1! 
; 108 0678 1! NONE 
; 109 0679 1! 
: 110 0680 1 ! IMPLICIT INPUTS: 
: 6111 0681 1! 
; 112 0682 1 ! EDT$$A_CUR_BUF 
: 113 0683 1! EDTS$T_LN_BUF | 
3 114 0684 1! 
o See 0685 1 ! IMPLICIT OUTPUTS: 
s 116 0686 1 ! 
a Sr 0687 1! EDTS$$G_EX1 
s 118 0688 1! EDTS$$G_VERT 
; 119 0689 1! EDTS$$G_RDAHED 
: 120 0690 1! EDTSSA_LN_PTR 
: ei 0691 1! 
3 1s¢ 0692 1 ! ROUTINE VALUE: 
.) 2 0693 1! 
: 126 0694 1! NONE 
: \$3 0695 1! 
s te 0696 1 ! SIDE EFFECTS: 
3 127 0697 1! | 
3s 128 909 1! NONE 
; 129 699 1! 
3; 130 0700 1 !-- | 
36131 0701 1 
; 13 070¢ BEGIN 
3 (13 970 | 
: 134 704 EXTERNAL ROUTINE a a 
; 135 0705 EDTSSGET_TXTLN; ! Get current Line in Line buffer 
; 136 9796 
: 137 B78 EXTERNAL / 
; «(138 708 EDTS$$G_EXI ! Change mode has been exited. 
> 139 0709 EDT$$G_VERT i Last entity was VERT flag. | 
; 140 0710 EDTSSA_CUR BuF : REF TBCB_BLOCK, ' The current buffer tbcb 
: 161 0711 EDT$$G_RDARED, ' Read ahead counter 

| 
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DTS$S$T_LN_BUF, ' Current Line buffer 
TSSA_ “LNZPTR: ! Current character pointer 
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cH isptr (EDTS$T_LN_BUF, .EDTSS$A_CUR_BUF CTBCB_CHAR_POS]); 
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: ! of routine EDTSSINIT_CHM 


IDENT \V04-000\ 


TS$S$GET_TXTLN, EDT$$G_EXI 
T$$G_VERT, EDT$$A_CUR_BUF 
1$$6 =ROANED. EDTS$S$T_LA_BuUF 
TSSA“LN_PTR 


»PSECT _EDTSCODE, NOWRT, SHR, PIC,2 


.ENTRY EDTSSINIT_CHM, Save R2 
#0, EDTSS$GET TXTLN 

MOVL EDTSSA. CUR BOF. Ri 

OVAB THs LN BUF. RO 

RO. 0; EDTSSA. LN_PTR 


ED 
E ED 
~-EXTRN ED 
E ED 
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3; Routine Size: 54 bytes, Routine Base: _EDTSCODE + 0000 


0721 1 
0722 1 !<BLF/PAGE> 
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-TITLE EDTSCHMINIT EDTSCHMINIT = change mode initializ | 
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18. 14 
= change mode initialize -Sep-19 


) 
| 
EDTSCHMINIT EDTSCHMINIT VAX-11 Bliss-32 V4.0-7 5. 
104-000 EDTSSINIT CHM = change mode initialize 14- ~Sep- 1984 93: $3: 98 DISKSVMSMASTER: ED i she CHMINIT.BLI;1 — (4) | 
| 
: 154 0723 1 END ! of module EDTSCHMINIT > 
: 155 0724 1 $ 
: 156 0725 0 ELUDOM . 
| 
: 
| 
; PSECT SUMMARY : 
: Name Bytes Attributes ; 
; _EDTSCODE 54 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
; Library Statistics 3 
9" eee ele ee eee Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped Time : 
: -$255$DUA28: CEDT. SRCJEDT.L32;1 377 24 6 40 00:00. ¢ | ‘ 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
| Ps 
| 
H COMMAND QUALIFIERS 
; SLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /MOTRACEBACK/L ISL 158: CHMINIT/0BJ=08JS: CHAINIT MSRC$:CHMINIT.BLI/UPDATE=(ENHS$: CHMINIT | 
3; Size: 54 code + 0 data bytes 
; Run Time: :09.5 
; Elapsed Time: Pete 
3 Lines/CPU Min: 4569 
3; Lexemes/CPU-Min: 12226 
: "Y Used: 58 pages 
3; Compilation Complete 
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